function[resultados_colig]=tabla_resultados_colig
principio='D:\proyecto\escritores\BD100escritores\';
for escritor=1:100
    datos=zeros(1,34);
    datos2=zeros(1,10);
    for t=1:10        
        for w=1:34
            direccion1=strcat(strcat(principio,num2str(escritor)),'\NORMAL\',strcat('muestra',num2str(t)),strcat('\p',num2str(w)),'.bmp');
            [xbin,xgrises]=binarizacion(direccion1);
            [agrupacion]=coligamiento(xbin);
            datos(w)=agrupacion;
            
        end
         
        datos2(1,t)=mean(datos);
        
        datos=zeros(1,34);
    end
    resultados_colig{1,escritor}=datos2;
    datos2=zeros(1,10);
end   
save 'res_colig.mat' resultados_colig